;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  
(defun c:fixtndat ()
  (setq fname (findfile "tnote.dat"))
  (setq opn_fn (open fname "r"))
  (setq rdln_lst (list (read (read-line opn_fn))))
  (while
    (setq rd_line (read (read-line opn_fn)))
    (princ rd_line)
    (setq rdln_lst (append rdln_lst (list rd_line)))
  )
  (close opn_fn)
  (foreach n rdln_lst
    (if (eq (length n) 3)
      (setq new_n (append n (list 35)))
    )
    (if new_lst
      (setq new_lst (append new_lst (list new_n)))
      (setq new_lst (list new_n))
    )
  )
)